home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8907a.d64 / farben beispiel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  61 lines
  1. 10 REM ***************************
  2. 11 REM *** DECLARE 88 BEISPIEL ***
  3. 15 OPEN1,8,15:PRINT#1,"S:BLUE.OBJ,COLORS.PAC":CLOSE1
  4. 20 (null)
  5. 100 REM *** ERSTELLEN EINES OBJ-FILES
  6. 105 REM  1. FILE OEFFNEN
  7. 110 OPEN1,8,2,"BLUE.OBJ,P,W"
  8. 111 REM  2. ASSEMBLER AUFRUF
  9. 112 SYS9*4096:.OPT O1:*=828
  10. 113 ; ** 3. QUELLTEXT ***
  11. 114 .ASC "PROGRAM:"
  12. 120 LDA #6:STA 53280:STA 53281:RTS
  13. 130 .END
  14. 132 CLOSE1
  15. 140 REM DEKLARATION
  16. 142 (null)"BLUE",8
  17. 200 REM *** PACK-FILE MIT USING
  18. 210 OPEN1,8,2,"COLORS.PAC,P,W"
  19. 212 SYS9*4096:.OPT O1:*=828
  20. 213 ; *** QUELLTEXT ***
  21. 214 .ASC "PRO[195] WHITE,PRO[195] GREY:U[211] BLUE,2:PRO[199]:"
  22. 220 JMP WHT:JMP GRE
  23. 224 WHT LDA #1:JMP L328
  24. 226 GRE LDA #12
  25. 228 L328 JMP $FFFF
  26. 230 .END
  27. 232 CLOSE1
  28. 240 REM DEKLARATION
  29. 242 (null)"COLORS",8
  30. 300 REM *** AUS SPEICHER DEKLARIEREN
  31. 309 REM   1. ASSEMBLER-AUFRUF
  32. 310 SYS9*4096:.OPT OO:*=828
  33. 312 ; **  2. QUELLTEXT
  34. 314 .ASC "USING BLUE,2:PROGRAM:"
  35. 316 .WORD ENDE
  36. 318 LDA #2:JMP $FFFF
  37. 320 ENDE NOP
  38. 322 .END
  39. 330 REM *** DEKLARATION
  40. 340 (null)"RED",1,828
  41. 400 REM *** "PACK" MIT #1 OHNE "USING"
  42. 412 SYS9*4096:.OPT OO:*=828
  43. 414 .ASC "PROCEDURE GREEN,PROCEDURE YELLOW:PROGRAM:"
  44. 416 .WORD ENDE
  45. 420 JMP GRN:JMP YEL
  46. 424 GRN LDA #5:JMP L328
  47. 426 YEL LDA #7
  48. 428 L328 STA 53280:STA 53281:RTS
  49. 430 ENDE NOP
  50. 432 .END
  51. 440 REM *** DEKLARATION
  52. 442 (null)"COLORS2",1,828
  53. 450 PRINT:PRINT"FOLGENDE BEFEHLE SIND DEFINIERT:"
  54. 452 (null)
  55. 499 END
  56. 500 REM ** DIREKT-DEKLARATION #0
  57. 501 REM ** NUR MIT PROFI-ASS
  58. 502 (null)"PURPLE",0,"PROGRAM:":.OPT OO
  59. 504 LDA #4:STA 53280:STA 53281:RTS
  60. 506 .END
  61.